home *** CD-ROM | disk | FTP | other *** search
- ; d0 - exception
- ; d1 - exceptioninfo
-
- xdef _Raise
- xdef _exception
- xdef _exceptioninfo
- xdef lastexceptptr
- xdef laststackptr
-
- _Raise move.l d0,_exception
- move.l d1,_exceptioninfo
- move.l lastexceptptr,d0
- beq.s .exit
- move.l laststackptr,a7
- move.l (a7)+,laststackptr
- move.l (a7)+,lastexceptptr
- move.l d0,a0
- jmp (a0)
- .exit jmp mainend
-
- _exception dc.l 0
- _exceptioninfo dc.l 0
- lastexceptptr dc.l 0
- laststackptr dc.l 0
-
- xref mainend
-